The Trig Explorer/The Trig Explorer.iso/mac/Explorer/Ex_Right.dxr/00001.ls

Text File | 1998-07-22 | 923 b | 32 lines

on startMovie
  global a, b, c
  cursor(-1)
  set the randomSeed to the ticks
  set the keyDownScript to "printPass"
  set the keyUpScript to "numsOnly"
  put " " into field "Answer"
  set the textSize of field "Answer" to 32
  set the textSize of field "A" to 32
  set the textSize of field "B" to 32
  set the textSize of field "C" to 32
  set the textStyle of field "Answer" to "bold"
  set the textStyle of field "A" to "bold"
  set the textStyle of field "B" to "bold"
  set the textStyle of field "C" to "bold"
end

on stopMovie
  set the cursor of sprite 20 to 0
  set the cursor of sprite 21 to 0
  put 45 into field "Answer"
end

on numsOnly
  if (the key = ENTER) or (the key = RETURN) or (the keyCode = 76) then
    exit
  end if
  if ((the key < "0") or (the key > "9")) and (the key <> "-") and (the key <> ".") and (the key <> numToChar(9)) and (the key <> numToChar(8)) then
    dontPassEvent()
  end if
end